﻿Imports System
Public Class UserCards
    Dim propUserID As String
    Dim propCardID As String

    'Constructor
    Public Sub New(ByVal passCardID As String, ByVal passUserID As String)
        propUserID = passUserID
        propCardID = passCardID
    End Sub

    'User ID property
    Public Property userID As String
        Set(getUserID As String)
            propUserID = getUserID
        End Set
        Get
            Return propUserID
        End Get
    End Property

    'CardID property
    Public Property cardID As String
        Set(getCardID As String)
            propCardID = getCardID
        End Set
        Get
            Return propCardID
        End Get
    End Property

End Class
